EnigmA Amiga Run 1995 November/EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso/earcd/program/amos/amcafext.lha/AMCAF_Examples/BankManager.AMOS/BankManager.amosSourceCode

AMOS Source Code | 1995-07-14 | 59KB | 2,277 lines

' *************************************
' *                                   *
' *      AMCAF Bank Manager V1.1      *
' *      Written by Chris Hodges      *
' *                                   *
' *************************************
'
Set Buffer 40
MXFILES=300
Dim FIL$(MXFILES)
'
Dim FB(71,4),FB$(71)
Global FB(),FB$()
TH=8
Global TH
Erase All
MAIN
End
Procedure MAIN
  Dim BNK$(100)
  Gosub INIT
  Gosub UPDATBANKS
  MOBNK=0
  OMK=0
  Do
    Repeat : Multi Wait : Until Amos Here
    If Timer>25
      A$="}Chip: "+ Extension_8_0EB8(Chip Free/1024,4)+" KB  Fast: "+ Extension_8_0EB8(Fast Free/1024,5)+"KB "
      TEX[300,0,614,10,A$]
      Timer=0
    End If
    XM=X Screen(X Mouse) : YM=Y Screen(Y Mouse) : MK=Mouse Key : I$=Inkey$
    BT=0
    If MK=1 and OMK<>1
      CHKMOUSE[XM,YM,20,64]
      BT=Param
    End If
    If BT=23 Then Gosub LOAALLBANKS
    If BT=24 Then Gosub SAVALLBANKS
    If BT=25 Then Gosub CLRALLBANKS
    If BT=27 Then Gosub LOAFILE
    If BT=28 Then Gosub SAVFILE
    If BT=29 or BT=58 Then Gosub CLRBANK
    If BT=30 Then Gosub KILFILE
    If BT=31 Then Gosub PPPACK
    If BT=32 Then Gosub FIMPPACK
    If BT=33 Then Gosub BANKDELTAENCOD
    If BT=34 Then Gosub BANKDELTADECOD
    If BT=35 Then Gosub RENAMBANK
    If BT=36 Then Gosub BANKLENGTH
    If BT=37 or BT=55 Then Gosub CHANGEMEMTYPE
    If BT=38 or BT=56 Then Gosub CHANGEBANKTYPE
    If BT=39 Then Gosub ENCODEADD
    If BT=40 Then Gosub ENCODEXOR
    If BT=41 Then Gosub ENCODEMIX
    If BT=42 Then Gosub ENCODEROL
    If BT=43 Then Gosub UNCODEADD
    If BT=44 Then Gosub UNCODEXOR
    If BT=45 Then Gosub UNCODEMIX
    If BT=46 Then Gosub UNCODEROL
    If BT>38 and BT<47 Then Gosub UPDATONLY
    If BT=47 Then Gosub ARROWUP
    If BT=48 Then Gosub ARROWDOWN
    If BT=49 Then Gosub DRAGSLIDER
    If BT=50 Then Gosub FLIPPAGE
    If BT=57 Then Gosub SWPBANK
    If BT=59 Then Gosub DUPLICATE
    If BT=60 Then Gosub UNPCK
    If BT=61 Then Gosub VIWASCII
    If BT=62 Then Gosub VIWHEX
    If BT=63 Then Gosub CUSTOM
    If BT=64 Then Gosub SELECT
    If BT=20 or BT=26
      If MOBNK=1
        REQUEST["Banks not saved, do you want to save before leaving?","Save|Abandon|Cancel"]
        If Param=0
          Gosub SAVALLBANKS
        End If
        If Param=1
          REQUEST["Do you really want to quit this program?","Quit|Cancel"]
          Exit If Param=0
        End If
      Else
        REQUEST["Do you really want to quit this program?","Quit|Cancel"]
        Exit If Param=0
      End If
    End If
    If BT=22 Then Amos To Back
    OMK=MK
  Loop
  Screen Close 0
  Erase All
Pop Proc
ENCODEADD:
  REQUEST["Shall I encode bytewise or wordwise?","Byte|Word"]
  If Param
    NUMENT["Enter a number from 1 to 65535. Don't forget this number!","Encode|Cancel",Rnd(65535),0,65535]
    If Left$(Param$,1)="1" : Return : End If
     Extension_8_01AC Val(Mid$(Param$,2)), Extension_8_098C(BNK$(SEL))
    MOBNK=1
  Else
    NUMENT["Enter a number from 1 to 255. Don't forget this number!","Encode|Cancel",Rnd(255),0,255]
    If Left$(Param$,1)="1" : Return : End If
     Extension_8_00EE Val(Mid$(Param$,2)), Extension_8_098C(BNK$(SEL))
    MOBNK=1
  End If
Return
ENCODEXOR:
  REQUEST["Shall I encode bytewise or wordwise?","Byte|Word"]
  If Param
    NUMENT["Enter a number from 1 to 65535. Don't forget this number!","Encode|Cancel",Rnd(65535),0,65535]
    If Left$(Param$,1)="1" : Return : End If
     Extension_8_0186 Val(Mid$(Param$,2)), Extension_8_098C(BNK$(SEL))
    MOBNK=1
  Else
    NUMENT["Enter a number from 1 to 255. Don't forget this number!","Encode|Cancel",Rnd(255),0,255]
    If Left$(Param$,1)="1" : Return : End If
     Extension_8_00C8 Val(Mid$(Param$,2)), Extension_8_098C(BNK$(SEL))
    MOBNK=1
  End If
Return
ENCODEMIX:
  REQUEST["Shall I encode bytewise or wordwise?","Byte|Word"]
  If Param
    NUMENT["Enter a number from 1 to 65535. Don't forget this number!","Encode|Cancel",Rnd(65535),0,65535]
    If Left$(Param$,1)="1" : Return : End If
     Extension_8_01D2 Val(Mid$(Param$,2)), Extension_8_098C(BNK$(SEL))
    MOBNK=1
  Else
    NUMENT["Enter a number from 1 to 255. Don't forget this number!","Encode|Cancel",Rnd(255),0,255]
    If Left$(Param$,1)="1" : Return : End If
     Extension_8_0114 Val(Mid$(Param$,2)), Extension_8_098C(BNK$(SEL))
    MOBNK=1
  End If
Return
ENCODEROL:
  REQUEST["Shall I encode bytewise or wordwise?","Byte|Word"]
  If Param
    NUMENT["Enter a number from 1 to 15. Don't forget this number!","Encode|Cancel",Rnd(15),0,15]
    If Left$(Param$,1)="1" : Return : End If
     Extension_8_01F8 Val(Mid$(Param$,2)), Extension_8_098C(BNK$(SEL))
    MOBNK=1
  Else
    NUMENT["Enter a number from 1 to 7. Don't forget this number!","Encode|Cancel",Rnd(7),0,7]
    If Left$(Param$,1)="1" : Return : End If
     Extension_8_013A Val(Mid$(Param$,2)), Extension_8_098C(BNK$(SEL))
    MOBNK=1
  End If
Return
UNCODEADD:
  REQUEST["Shall I decode bytewise or wordwise?","Byte|Word"]
  If Param
    NUMENT["Enter the code from 1 to 65535.","Encode|Cancel",0,0,65535]
    If Left$(Param$,1)="1" : Return : End If
     Extension_8_01AC -Val(Mid$(Param$,2)), Extension_8_098C(BNK$(SEL))
    MOBNK=1
  Else
    NUMENT["Enter the code from 1 to 255.","Encode|Cancel",0,0,255]
    If Left$(Param$,1)="1" : Return : End If
     Extension_8_00EE -Val(Mid$(Param$,2)), Extension_8_098C(BNK$(SEL))
    MOBNK=1
  End If
Return
UNCODEXOR:
  REQUEST["Shall I decode bytewise or wordwise?","Byte|Word"]
  If Param
    NUMENT["Enter the code from 1 to 65535.","Encode|Cancel",0,0,65535]
    If Left$(Param$,1)="1" : Return : End If
     Extension_8_0186 Val(Mid$(Param$,2)), Extension_8_098C(BNK$(SEL))
    MOBNK=1
  Else
    NUMENT["Enter the code from 1 to 255.","Encode|Cancel",0,0,255]
    If Left$(Param$,1)="1" : Return : End If
     Extension_8_00C8 Val(Mid$(Param$,2)), Extension_8_098C(BNK$(SEL))
    MOBNK=1
  End If
Return
UNCODEMIX:
  REQUEST["Shall I decode bytewise or wordwise?","Byte|Word"]
  If Param
    NUMENT["Enter the code from 1 to 65535.","Encode|Cancel",0,0,65535]
    If Left$(Param$,1)="1" : Return : End If
     Extension_8_01D2 Val(Mid$(Param$,2)), Extension_8_098C(BNK$(SEL))
    MOBNK=1
  Else
    NUMENT["Enter the code from 1 to 255.","Encode|Cancel",0,0,255]
    If Left$(Param$,1)="1" : Return : End If
     Extension_8_0114 -Val(Mid$(Param$,2)), Extension_8_098C(BNK$(SEL))
    MOBNK=1
  End If
Return
UNCODEROL:
  REQUEST["Shall I decode bytewise or wordwise?","Byte|Word"]
  If Param
    NUMENT["Enter the code from 1 to 15.","Encode|Cancel",0,0,15]
    If Left$(Param$,1)="1" : Return : End If
     Extension_8_021E Val(Mid$(Param$,2)), Extension_8_098C(BNK$(SEL))
    MOBNK=1
  Else
    NUMENT["Enter the code from 1 to 7.","Encode|Cancel",0,0,7]
    If Left$(Param$,1)="1" : Return : End If
     Extension_8_0160 Val(Mid$(Param$,2)), Extension_8_098C(BNK$(SEL))
    MOBNK=1
  End If
Return
CUSTOM:
  BANK= Extension_8_098C(BNK$(SEL))
  ST=Start(BANK) : LE=Length(BANK)
  ID=Leek(ST) : BN$= Extension_8_027A(BANK)
  If Leek(ST+8)= Extension_8_0998("ILBM")
     Extension_8_0472 "T:Temp",BANK
    Load Iff "T:Temp",1
    Kill "T:Temp"
    While Mouse Key=0 : Multi Wait : Wend
    Screen Close 1
  End If
  If ID=$12031990
    Unpack BANK To 1
    While Mouse Key=0 : Multi Wait : Wend
    Screen Close 1
  End If
  If BN$="Music   "
    If ST>$200000
      REQUEST["Music not in chip mem. Move there?","Yes|No"]
      If Param=0
         Extension_8_00A0 BANK
        Gosub UPDATONLY
        Music 1
        REQUEST["Playing AMOS music...","Stop!"]
        Music Off
      End If
    Else
      Music 1
      REQUEST["Playing AMOS music...","Stop!"]
      Music Off
    End If
  End If
  If Leek(ST+1080)= Extension_8_0998("M.K.")
    If ST>$200000
      REQUEST["Music not in chip mem. Move there?","Yes|No"]
      If Param=0
         Extension_8_00A0 BANK
        Gosub UPDATONLY
         Extension_8_10F2 125
         Extension_8_108E BANK
        REQUEST["Playing Protracker music...","Stop!"]
         Extension_8_10A8
      End If
    Else
       Extension_8_10F2 125
       Extension_8_108E BANK
      REQUEST["Playing Protracker music...","Stop!"]
       Extension_8_10A8
    End If
  End If
Return
SETUPSCREEN:
  Screen Open 1,640,256,4,$8000
  Curs Off : Flash Off : Paper 2 : Pen 0 : Cls 0
  Palette 0,$FFF,$AAA,$666
  Colour 17,$BDF : Colour 18,$6F : Colour 19,$12
  Screen Display 1,128,40,320,256
  Gr Writing 0
  Multi Wait : Limit Mouse
  DEFCLOWIN[65,0,0]
  FILBOX[0,11,639,255,0]
  DEFSCRTBK[67,617,0]
Return
VIWASCII:
  Gosub SETUPSCREEN
  DEFTEX[66,19,0,616,10,"{View bank as ascii",1]
  BANK= Extension_8_098C(BNK$(SEL))
  ST=Start(BANK) : LE=Length(BANK)
  POSX=0 : POSY=0
  Do
    P=Peek(ST) : Inc ST : Dec LE
    If P<32 Then I$="." Else I$=Chr$(P)
    If P=10 Then POSX=0 : Inc POSY : I$=""
    If P=13 Then POSX=0 : I$=""
    If I$<>""
      Locate POSX+1,POSY+2 : Print I$;
      Inc POSX
    End If
    If POSX>77
      POSX=0 : Inc POSY
    End If
    Exit If POSY>28 or LE=0
  Loop
  Do
    Repeat : Multi Wait : Until Amos Here
    If Timer>25
      A$="}Chip: "+ Extension_8_0EB8(Chip Free/1024,4)+" KB  Fast: "+ Extension_8_0EB8(Fast Free/1024,5)+"KB "
      TEX[300,0,614,10,A$]
      Timer=0
    End If
    XM=X Screen(X Mouse) : YM=Y Screen(Y Mouse) : MK=Mouse Key : I$=Inkey$
    Exit If BT=65
    BT=0
    If MK=1 and OMK<>1
      CHKMOUSE[XM,YM,65,67]
      BT=Param
    End If
    If BT=67 Then Amos To Back
    OMK=MK
  Loop
  Screen Close 1
Return
VIWHEX:
  Gosub SETUPSCREEN
  DEFTEX[66,19,0,616,10,"{View bank as hex",1]
  DRABOX[4,13,615,253,3]
  DEFARROWU[68,618,253-17]
  DEFARROWD[69,618,253-8]
  DEFBOX[71,618,13,635,253-18,3]
  BANK= Extension_8_098C(BNK$(SEL))
  ST=Start(BANK) : LE=Length(BANK)
  MXLIN=(LE+19)/20
  OFF=0
  DRASLIDER[71,OFF,29,MXLIN,70]
  OLDHEX=-99
  Gosub UPDATHEX
  Do
    Repeat : Multi Wait : Until Amos Here
    If Timer>25
      A$="}Chip: "+ Extension_8_0EB8(Chip Free/1024,4)+" KB  Fast: "+ Extension_8_0EB8(Fast Free/1024,5)+"KB "
      TEX[300,0,614,10,A$]
      Timer=0
    End If
    XM=X Screen(X Mouse) : YM=Y Screen(Y Mouse) : MK=Mouse Key : I$=Inkey$
    Exit If BT=65
    BT=0
    If MK=1 and OMK<>1
      CHKMOUSE[XM,YM,65,71]
      BT=Param
    End If
    If BT=67 Then Amos To Back
    If BT=68 Then Gosub HEXUP
    If BT=69 Then Gosub HEXDOWN
    If BT=70 Then Gosub HEXSLIDER
    If BT=71 Then Gosub HEXFLIPPAGE
    OMK=MK
  Loop
  Screen Close 1
Return
UPDATHEX:
  D=OFF-OLDHEX
  If D=0 Then Return
  If FB(70,4) and 1 Then DRASLIDER[71,OFF,29,MXLIN,70]
  If Abs(D)>15
    For A=0 To Min(28,MXLIN-1)
      Gosub LISTHEX
    Next
    OLDHEX=OFF
    Return
  End If
  If D>0
    Screen Copy 1,6,16+D*8,613,248 To 1,6,16
     Extension_8_1258
    For A=29-D To 28
      Gosub LISTHEX
    Next
  Else
    Screen Copy 1,6,16,613,248+D*8 To 1,6,16-D*8
     Extension_8_1258
    For A=0 To -D-1
      Gosub LISTHEX
    Next
  End If
  OLDHEX=OFF
Return
LISTHEX:
  OA=(OFF+A)*20
  A$=Hex$(OA,6)+":"
  For AA=0 To 4
    Exit If OA+AA*4=>LE
    P=Leek(ST+OA+AA*4)
  A$=A$+" "+Hex$(P,8)
  Next
  B$=""
  For AA=0 To 19
    Exit If OA+AA=>LE
    P=Peek(ST+OA+AA)
    If P>31 Then B$=B$+Chr$(P) Else B$=B$+"."
  Next
  A$=A$-"$"
  Locate 1,2+A : Print A$;Space$(54-Len(A$));B$;Space$(20-Len(B$));
Return
HEXUP:
  PUSHGAD[BT]
  Repeat
    Multi Wait
    MK=Mouse Key : I$=Inkey$
    If OFF>0
      Dec OFF
      Gosub UPDATHEX
    End If
  Until MK<>1
  RELEGAD[BT]
Return
HEXDOWN:
  PUSHGAD[BT]
  Repeat
    Multi Wait
    MK=Mouse Key : I$=Inkey$
    If OFF<MXLIN-29
      Inc OFF
      Gosub UPDATHEX
    End If
  Until MK<>1
  RELEGAD[BT]
Return
HEXSLIDER:
  DISGAD[70]
  O=YM-FB(70,1)
  Repeat
    Multi Wait
    XM=X Screen(X Mouse) : YM=Y Screen(Y Mouse) : MK=Mouse Key : I$=Inkey$
    DRAGSLIDER[71,YM-O,29,MXLIN,70]
    If MXLIN>29
      OFF=Param
      Gosub UPDATHEX
    End If
  Until MK<>1
  ENAGAD[70]
  DRASLIDER[71,OFF,29,MXLIN,70]
  OMK=1
Return
HEXFLIPPAGE:
  If MXLIN<29 Then Return
  If YM>(FB(70,1)+FB(70,3))/2
    OFF=Min(OFF+29,MXLIN-29)
  Else
    OFF=Max(OFF-29,0)
  End If
  Gosub UPDATHEX
Return
UNPCK:
  BANK= Extension_8_098C(BNK$(SEL))
  ID=Leek(ST)
  If ID= Extension_8_0998("PP20")
     Extension_8_04D2 BANK To 1000
    Bank Swap BANK,1000
    Erase 1000
    Gosub UPDATONLY
    MOBNK=1
    Return
  End If
  If ID= Extension_8_0998("IMP!")
     Extension_8_0E8A BANK To 1000
    Bank Swap BANK,1000
    Erase 1000
    Gosub UPDATONLY
    MOBNK=1
    Return
  End If
  If ID= Extension_8_0998("RNC"+Chr$(1))
     Extension_8_03FC BANK To 1000
    Bank Swap BANK,1000
    Erase 1000
    Gosub UPDATONLY
    MOBNK=1
    Return
  End If
  REQUEST["Bank not compressed or format unknown.","Ok"]
Return
SWPBANK:
  BANK= Extension_8_098C(BNK$(SEL))
  NUMENT["Enter the bank to be swapped:","Ok|Cancel",BANK,0,999]
  A$=Param$
  If Left$(A$,1)="1" Then Return
  A=Val(Mid$(Param$,2))
  Bank Swap Max(A,1),BANK
  Gosub UPDATBANKS
  MOBNK=1
Return
DUPLICATE:
  BANK= Extension_8_098C(BNK$(NUMBANKS-1))+1
  NUMENT["Enter the target bank number:","Ok|Cancel",BANK,0,999]
  BANK= Extension_8_098C(BNK$(SEL))
  A$=Param$
  If Left$(A$,1)="1" Then Return
  A=Max(Val(Mid$(A$,2)),1)
  If A=BANK Then Return
   Extension_8_025A BANK To A
  Gosub UPDATBANKS
  MOBNK=1
Return
RENAMBANK:
  BANK= Extension_8_098C(BNK$(SEL))
  A$= Extension_8_027A(BANK)
  While Right$(A$,1)=" " : A$=Left$(A$,Len(A$)-1) : Wend
  TXTENT["Enter the new name:","Ok|Cancel",A$,8]
  A$=Param$
  If Left$(A$,1)="1" Then Return
   Extension_8_028C BANK,Mid$(A$,2)
  Gosub UPDATONLY
  MOBNK=1
Return
BANKLENGTH:
  REQUEST["Are you sure, that you want to change the size of the bank?","Proceed|Cancel"]
  If Param=1 Then Return
  BANK= Extension_8_098C(BNK$(SEL)) : OL=Length(BANK)
  NUMENT["Enter the new size:","Ok|Cancel",OL,0,512000]
  A$=Param$
  If Left$(A$,1)="1" Then Return
  NL=Val(Mid$(Param$,2))
  If NL<OL
    REQUEST["You will loose"+Str$(OL-NL)+" with this operation!","Proceed|Cancel"]
    If Param=1 : Return : End If
  End If
  If NL>0
     Extension_8_0244 BANK To NL
  Else
    Erase NL
  End If
  Gosub UPDATONLY
  MOBNK=1
Return
CHANGEMEMTYPE:
  A= Extension_8_098C(BNK$(SEL))
  D=Deek(Start(A)-12)
  If D and 2
    NEWTEX[55,"@ Fast"]
     Extension_8_00B4 A
'    Doke Start(A)-12,D and $FFFD
  Else
    NEWTEX[55,"@ Chip"]
     Extension_8_00A0 A
'    Doke Start(A)-12,(D and $FFFD)+2
  End If
  Gosub UPDATONLY
  MOBNK=1
Return
CHANGEBANKTYPE:
  A= Extension_8_098C(BNK$(SEL))
  If Deek(Start(A)-12) and 1
    NEWTEX[56,"@ Temp"]
     Extension_8_008A A
  Else
    NEWTEX[56,"@ Perm"]
     Extension_8_0074 A
  End If
  Gosub UPDATONLY
  MOBNK=1
Return
ARROWUP:
  PUSHGAD[BT]
  Repeat
    Multi Wait
    MK=Mouse Key : I$=Inkey$
    If OFFSET>0
      Dec OFFSET
      Gosub UPDATLIST
    End If
  Until MK<>1
  RELEGAD[BT]
Return
ARROWDOWN:
  PUSHGAD[BT]
  Repeat
    Multi Wait
    MK=Mouse Key : I$=Inkey$
    If OFFSET<NUMBANKS-18
      Inc OFFSET
      Gosub UPDATLIST
    End If
  Until MK<>1
  RELEGAD[BT]
Return
DRAGSLIDER:
  DISGAD[49]
  O=YM-FB(49,1)
  Repeat
    Multi Wait
    XM=X Screen(X Mouse) : YM=Y Screen(Y Mouse) : MK=Mouse Key : I$=Inkey$
    DRAGSLIDER[50,YM-O,18,NUMBANKS,49]
    If NUMBANKS>18
      OFFSET=Param
      Gosub UPDATLIST
    End If
  Until MK<>1
  ENAGAD[49]
  DRASLIDER[50,OFFSET,18,NUMBANKS,49]
  OMK=1
Return
FLIPPAGE:
  If NUMBANKS<18 Then Return
  If YM>(FB(49,1)+FB(49,3))/2
    OFFSET=Min(OFFSET+18,NUMBANKS-18)
  Else
    OFFSET=Max(OFFSET-18,0)
  End If
  Gosub UPDATLIST
Return
SELECT:
  Y=YM-68
  If Y<0 or Y>143 Then Return
  A=Y/8+OFFSET
  If A=>NUMBANKS Then Return
  If Y/8=SEL Then Return
  If SEL=-1
    ACTGAD[28]
    ACTGAD[29]
    For A=31 To 46
      ACTGAD[A]
    Next
    For A=55 To 63
      ACTGAD[A]
    Next
  End If
  If SEL-OFFSET=>0 and SEL-OFFSET<18
    A=SEL-OFFSET : SEL=-1
    Gosub LISBANK
  End If
  SEL=Y/8+OFFSET
  A=SEL-OFFSET : Gosub LISBANK
  Gosub UPDATSTATE
Return
UPDATSTATE:
  B$=BNK$(SEL) : A= Extension_8_098C(B$)
  NEWTEX[51,"{"+ Extension_8_0EB8(A,3)]
  NEWTEX[52,"{"+ Extension_8_027A(A)]
  NEWTEX[53,"{"+ Extension_8_0EB8(Length(A),6)]
  NEWTEX[54,"{"+Mid$(B$,54)]
  If Extension_8_098C(Mid$(B$,11,2)) and 1
    NEWTEX[56,"@ Perm"]
  Else
    NEWTEX[56,"@ Temp"]
  End If
  If Extension_8_098C(Mid$(B$,11,2)) and 2
    NEWTEX[55,"@ Chip"]
  Else
    NEWTEX[55,"@ Fast"]
  End If
Return
UPDATBANKS:
  SEL=-1 : OFFSET=0
UPDATONLY:
  NUMBANKS=0 : OLDOFF=-99
  TCH=0 : TFA=0
  For A=1 To 999
    LE=Length(A)
    If LE
      ST=Start(A)
      FLAG=Deek(ST-12)
      If FLAG and 1 : TYPE$="Perm" : Else TYPE$="Temp" : End If
      If FLAG and 2
        MEM$="Chip"
        Add TCH,LE
      Else
        MEM$="Fast"
        Add TFA,LE
      End If
      If FLAG and 4
        I$="Sprites"
      End If
      If FLAG and 8
        I$="Icons"
      End If
      If(FLAG and 12)=0
        Gosub BANKTYPE
      End If
      T$="{"+ Extension_8_0EB8(A,3)+"   "+ Extension_8_027A(A)+"   "+ Extension_8_0EB8(LE,6)+"   "+MEM$+"   "+TYPE$+"   "+I$
      BNK$(NUMBANKS)= Extension_8_08C4(A)+ Extension_8_08D2(ST)+ Extension_8_08D2(LE)+ Extension_8_08C4(FLAG)+T$
      Inc NUMBANKS
    End If
  Next
  If SEL=-1
    DEAGAD[28]
    DEAGAD[29]
    For A=31 To 46
      DEAGAD[A]
    Next
    For A=55 To 63
      DEAGAD[A]
    Next
  End If
  Gosub UPDATLIST
  If SEL>-1 Then Gosub UPDATSTATE
  ST["{ChipMem used:"+ Extension_8_0EC8(TCH,7)+" Bytes, FastMem used:"+ Extension_8_0EC8(TFA,7)+" Bytes."+Str$(NUMBANKS)+" Banks."]
Return
UPDATLIST:
  If NUMBANKS=0
    FILBOX[4,65,615,213,0]
    DRASLIDER[50,0,18,1,49]
    Return
  End If
  D=OFFSET-OLDOFF
  If D=0 Then Return
  If FB(49,4) and 1 Then DRASLIDER[50,OFFSET,18,NUMBANKS,49]
  If Abs(D)>10
    FILBOX[4,65,615,213,0]
    For A=0 To Min(17,NUMBANKS-1)
      Gosub LISBANK
    Next
    OLDOFF=OFFSET
    Return
  End If
  If D>0
    Screen Copy 0,6,68+D*8,613,212 To 0,6,68
    For A=18-D To 17
      Gosub LISBANK
    Next
  Else
    Screen Copy 0,6,68,613,212+D*8 To 0,6,68-D*8
    For A=0 To -D-1
      Gosub LISBANK
    Next
  End If
  OLDOFF=OFFSET
Return
LISBANK:
  If A+OFFSET=SEL
    TEX2[9,A*8+67,610,A*8+75,Mid$(BNK$(A+OFFSET),13)]
  Else
    TEX[9,A*8+67,610,A*8+75,Mid$(BNK$(A+OFFSET),13)]
  End If
Return
BANKTYPE:
  I$=""
  ID=Leek(ST) : BN$= Extension_8_027A(ST)
  If ID=$12031990
    I$="Packed Screen"+Str$(Deek(ST+4))+"*"+Mid$(Str$(Deek(ST+6)),2)
    I$=I$+"*"+Mid$(Str$(Deek(ST+22)),2)
  End If
  If ID=$6071963 Then I$="Packed Bitmap"
  If BN$="Music   " Then I$="AMOS Music"
  If BN$="Amal    " Then I$="AMOS Amal Program"
  If BN$="Menu    " Then I$="AMOS Menu Definition"
  If BN$="Samples "
    I$="Samps "
    For AAA=0 To Min(Deek(ST),2)
      AAB=ST+Leek(ST+2+AAA*4)
      I$=I$+"'"+(Peek$(AAB,8,Chr$(0))-" ")+"' "
    Next
  End If
  If BN$="Resource" Then I$="AMOS Resource Bank"
  If BN$="Asm     " Then I$="Machine Code"
  If BN$="Tracker " Then I$="Noisetracker "+Peek$(ST,30,Chr$(0))
  If BN$="Data    " or BN$="Datas   " Then I$="AMOS Data Bank"
  If BN$="Work    " Then I$="AMOS Work Bank"
  If ID= Extension_8_0998("PP20") Then I$="PowerPacked ->"+Str$( Extension_8_093A(Leek(ST+LE-4),8))+" Bytes"
  If ID= Extension_8_0998("IMP!") Then I$="FileImploded ->"+Str$(Leek(ST+4))+" Bytes"
  If ID= Extension_8_0998("RNC"+Chr$(1)) Then I$="RobNorthenCrunched"
  If ID= Extension_8_0998("FORM")
    ID2=Leek(ST+8)
    If ID2= Extension_8_0998("ILBM")
      I$="IFF-Picture"
    Else
      If ID2= Extension_8_0998("ANIM")
        I$="IFF-Animation"
      Else
        If ID2= Extension_8_0998("8SVX")
          I$="IFF-Sound"
        Else
          I$="IFF"+ Extension_8_08D2(ID2)
        End If
      End If
    End If
  End If
  If ID= Extension_8_0998("FONT") Then I$="AMCAF BankFont "+Peek$(ST+Leek(ST+4)+76,40,Chr$(0))
  If Leek(ST+1080)= Extension_8_0998("M.K.")
    I$="Protracker "+Peek$(ST,30,Chr$(0))
  End If
  If Leek(ST+1080)=$4DE11DE3
    I$="Delta Protracker"
  End If
  If I$<>"" Then Return
  For AAA=0 To 15
    P=Peek(ST+AAA)
    Exit If P<32 and Not(P=9 or P=10 or P=13)
  Next
  If AAA=16
    I$="Ascii Text '"+Peek$(ST,16,Chr$(10))+"'..."
  Else
    I$="Bin '"
    For AAA=0 To 2
      I$=I$+Mid$(Hex$(Leek(ST+AAA*4),8),2)
      If AAA<2 : I$=I$+" " : End If
    Next
    I$=I$+"'"
  End If
Return
LOAFILE:
  FILEREQ[-1,640,160,0,"Load a file.",OLDFILE$,OLDDIR$,"","Load","Cancel","","RP"]
  F$=Param$
  If F$="" Then Return
  If Exist(F$)=0
    REQUEST[ Extension_8_0522( Extension_8_0532 ),"Cancel"]
    Return
  End If
  OLDFILE$= Extension_8_02F0(F$)
  OLDDIR$= Extension_8_03E0(F$)
  Open In 1,F$
  ID$=Input$(1,12) : ID= Extension_8_0998(ID$)
  Close 1
  Gosub FILEIDCHECK
  If ERR=0
    MOBNK=0
    REQUEST["File loaded.","Ok"]
  Else
    If ERR=-2
      REQUEST["Loading aborted.","Ok"]
    Else
      REQUEST[ Extension_8_0522( Extension_8_0532 ),"Cancel"]
    End If
  End If
  Trap Kill "T:Temp"
  Gosub UPDATBANKS
Return
FILEIDCHECK:
  ERR=0
  If ID= Extension_8_0998("IMP!")
    REQUEST["This file is file imploded. Decrunch or load?","Decrunch|Load"]
    If Param=0
      If NUMBANKS
        BANK= Extension_8_098C(BNK$(NUMBANKS-1))+1
      Else
        BANK=10
      End If
      Gosub SELBANK
      ST["Loading and decrunching file..."]
      Trap Extension_8_0EA2 F$,BANK : ERR=Errtrap
      ST["Done..."]
    Else
      If NUMBANKS
        BANK= Extension_8_098C(BNK$(NUMBANKS-1))+1
      Else
        BANK=10
      End If
      Gosub SELBANK
      ST["Loading imploded file..."]
      Trap Extension_8_0464 F$,BANK : ERR=Errtrap
      ST["Done..."]
    End If
    Return
  End If
  If ID= Extension_8_0998("PP20")
    REQUEST["This file is powerpacked. Decrunch or load?","Decrunch|Load"]
    If Param=0
      If NUMBANKS
        BANK= Extension_8_098C(BNK$(NUMBANKS-1))+1
      Else
        BANK=10
      End If
      Gosub SELBANK
      ST["Loading and decrunching file..."]
      Trap Extension_8_04E4 F$,BANK : ERR=Errtrap
      ST["Done..."]
    Else
      If NUMBANKS
        BANK= Extension_8_098C(BNK$(NUMBANKS-1))+1
      Else
        BANK=10
      End If
      Gosub SELBANK
      ST["Loading powerpacked file..."]
      Trap Extension_8_0464 F$,BANK : ERR=Errtrap
      ST["Done..."]
    End If
    Return
  End If
  If Right$(ID$,4)="ILBM"
    REQUEST["This is an IFF-Picture. Do you want me to convert it into an Packed Picture?","Convert|Leave"]
    If Param=0
      Load Iff F$,1
      Spack 1 To 1000
      Screen Close 1
      F$="T:Temp"
      Save "T:Temp",1000
      If NUMBANKS
        BANK= Extension_8_098C(BNK$(NUMBANKS-1))+1
      Else
        BANK=10
      End If
      ID= Extension_8_0998("AmBk") : ID$="AmBk"+ Extension_8_08C4(BANK)
      Erase 1000
      Gosub BANKIDCHECK
      Kill F$
      Return
    End If
  End If
  REQUEST["The file will be loaded as permanent fastmem bank.","Continue|Abort"]
  If Param=1 Then ERR=-2 : Return
  If NUMBANKS>0
    BANK= Extension_8_098C(BNK$(NUMBANKS-1))+1
  Else
    BANK=10
  End If
  Gosub SELBANK
  Trap Extension_8_0464 F$,BANK
  ERR=Errtrap
Return
SAVFILE:
  REQUEST["Do you want to save the current bank as binary or as AMOS bank?","Binary|AMOS Bank"]
  TYP=Param
  If TYP
    FILEREQ[-1,640,160,0,"Save a bank.",OLDFILE$,OLDDIR$,"*.abk","Save","Cancel","","RPS"]
  Else
    FILEREQ[-1,640,160,0,"Save a file.",OLDFILE$,OLDDIR$,"","Save","Cancel","","RPS"]
  End If
  F$=Param$
  If F$="" Then Return
  If Exist(F$)
    REQUEST["File already exists!","Overwrite|Backup|Cancel"]
    If Param=2 : Return : End If
    If Param=1
      Trap Kill F$+".bak"
      Trap Rename F$ To F$+".bak"
    End If
  End If
  OLDFILE$= Extension_8_02F0(F$)
  OLDDIR$= Extension_8_03E0(F$)
  If TYP
    Trap Save F$, Extension_8_098C(BNK$(SEL))
  Else
    Trap Extension_8_0472 F$, Extension_8_098C(BNK$(SEL))
  End If
  If Errtrap=0
    REQUEST["Bank saved.","Ok"]
    MOBNK=0
  Else
    REQUEST[ Extension_8_0522( Extension_8_0532 ),"Cancel"]
  End If
  FILEREQNOTIFY
Return
CLRBANK:
  REQUEST["Are you sure, that you want to erase this bank?","Proceed|Cancel"]
  If Param=1 Then Return
  Erase Extension_8_098C(BNK$(SEL))
  Gosub UPDATBANKS
  MOBNK=1
Return
KILFILE:
  FILEREQ[-1,640,160,0,"Delete a file.",OLDFILE$,OLDDIR$,"","Delete","Cancel","","RPS"]
  F$=Param$
  If F$="" Then Return
  If Exist(F$)=0
    REQUEST[ Extension_8_0522( Extension_8_0532 ),"Cancel"]
    Return
  End If
  REQUEST["Really delete this file?","Proceed|Cancel"]
  If Param=1 Then Return
  Trap Kill F$
  If Errtrap
    REQUEST[ Extension_8_0522( Extension_8_0532 ),"Cancel"]
  Else
    REQUEST["File deleted.","Ok"]
  End If
Return
PPPACK:
  REQUEST["Effeciency?","Medorice|Good|Very Good|Best"]
  EFF=Param+1
  ST["Please wait..."]
  A= Extension_8_098C(BNK$(SEL))
  Trap Extension_8_04B4 "T:Temp",A
  ST["Done..."]
  If Errtrap
    Trap Kill "T:Temp"
    REQUEST["Error during crunching!","Cancel"]
    Return
  End If
   Extension_8_0672 "T:Temp"
  OL=Length(A) : NL= Extension_8_06A2
  BODY$="New size:"+Str$(NL)+". Gain"+Str$(OL-NL)+" Bytes (="+Mid$(Str$(100-((NL*100)/OL)),2)+"%)"
  REQUEST[BODY$,"Ok"]
  REQUEST["Overwrite current bank or load into new bank?","Overwrite|New Bank|Cancel"]
  If Param=2 Then Kill "T:Temp" : Return
  O$= Extension_8_027A(A)
  If Param=0
     Extension_8_0464 "T:Temp",A
     Extension_8_028C A,"PP"+O$
  Else
    BANK= Extension_8_098C(BNK$(NUMBANKS-1))+1
    Gosub SELBANK
     Extension_8_0464 "T:Temp",BANK
     Extension_8_028C BANK,"PP"+O$
  End If
  Kill "T:Temp"
  Gosub UPDATONLY
  MOBNK=1
Return
FIMPPACK:
   Extension_8_0472 "T:Temp", Extension_8_098C(BNK$(SEL))
  Amos To Back
  Exec "Fimp >CON:////FileImploder/CLOSE T:Temp T:Temp -V"
  Amos To Front
   Extension_8_0672 "T:Temp"
  OL=Length(A) : NL= Extension_8_06A2
  If OL=NL or NL=0
    REQUEST["File could not be crunched.","Cancel"]
    Trap Kill "T:Temp"
    Return
  End If
  BODY$="New size:"+Str$(NL)+". Gain"+Str$(OL-NL)+" Bytes (="+Mid$(Str$(100-((NL*100)/OL)),2)+"%)"
  REQUEST[BODY$,"Ok"]
  REQUEST["Overwrite current bank or load into new bank?","Overwrite|New Bank|Cancel"]
  If Param=2 Then Kill "T:Temp" : Return
  O$= Extension_8_027A(A)
  If Param=0
     Extension_8_0464 "T:Temp",A
     Extension_8_028C A,"FImp"+O$
  Else
    BANK= Extension_8_098C(BNK$(NUMBANKS-1))+1
    Gosub SELBANK
     Extension_8_0464 "T:Temp",BANK
     Extension_8_028C BANK,"FImp"+O$
  End If
  Kill "T:Temp"
  Gosub UPDATONLY
  MOBNK=1
Return
BANKDELTAENCOD:
  A= Extension_8_098C(BNK$(SEL))
   Extension_8_0FCE A
   Extension_8_028C A,"D-"+ Extension_8_027A(A)
  Gosub UPDATONLY
  MOBNK=1
Return
BANKDELTADECOD:
  A= Extension_8_098C(BNK$(SEL))
   Extension_8_0FF2 A
   Extension_8_028C A,(Left$( Extension_8_027A(A),2)-"D-")+Mid$( Extension_8_027A(A),3)
  Gosub UPDATONLY
  MOBNK=1
Return
SAVALLBANKS:
  FILEREQ[-1,640,160,0,"Save all banks.",OLDFILE$,OLDDIR$,"#?.abk","Save","Cancel","","RPS"]
  F$=Param$
  If F$="" Then Return
  If Exist(F$)
    REQUEST["File already exists!","Overwrite|Backup|Cancel"]
    If Param=2 : Return : End If
    If Param=1
      Trap Kill F$+".bak"
      Trap Rename F$ To F$+".bak"
    End If
  End If
  OLDFILE$= Extension_8_02F0(F$)
  OLDDIR$= Extension_8_03E0(F$)
  Trap Save F$
  If Errtrap=0
    REQUEST["Banks saved.","Ok"]
    MOBNK=0
  Else
    REQUEST[ Extension_8_0522( Extension_8_0532 ),"Cancel"]
  End If
  Gosub UPDATBANKS
  FILEREQNOTIFY
Return
LOAALLBANKS:
  If MOBNK
    REQUEST["Banks not saved, do you want to save them?","Save|Abandon"]
    If Param=0
      Gosub SAVALLBANKS
    End If
  End If
  FILEREQ[-1,640,160,0,"Load AMOS banks.",OLDFILE$,OLDDIR$,"#?.abk","Load","Cancel","","PR"]
  F$=Param$
  If F$="" Then Return
  If Exist(F$)=0
    REQUEST[ Extension_8_0522( Extension_8_0532 ),"Cancel"]
    Return
  End If
  OLDFILE$= Extension_8_02F0(F$)
  OLDDIR$= Extension_8_03E0(F$)
  Open In 1,F$
  ID$=Input$(1,12) : ID= Extension_8_0998(ID$)
  Close 1
  Gosub BANKIDCHECK
  If ERR=0
    MOBNK=0
    REQUEST["Banks loaded.","Ok"]
  Else
    If ERR=-2
      REQUEST["Loading aborted.","Ok"]
    Else
      If ERR=-1
        REQUEST["File format unknown!","Cancel"]
      Else
        REQUEST[ Extension_8_0522( Extension_8_0532 ),"Cancel"]
      End If
    End If
  End If
  Trap Kill "T:Temp"
  Gosub UPDATBANKS
Return
CLRALLBANKS:
  If MOBNK
    REQUEST["Banks not saved, do you want to save them?","Save|Abandon"]
    If Param=0
      Gosub SAVALLBANKS
    End If
  End If
  Erase All
  Gosub UPDATBANKS
Return
BANKIDCHECK:
  ERR=0
  If ID= Extension_8_0998("AmBs")
    REQUEST["This file contains multiple banks and will erase any existent ones.","Proceed|Cancel"]
    If Param=0
      ST["Loading multiple banks..."]
      Trap Load F$ : ERR=Errtrap
      ST["Done..."]
    Else
      ERR=-2
    End If
    Return
  End If
  If ID= Extension_8_0998("PPbk")
    REQUEST["This is a powerpacked bank. Load anyway?","Load|Cancel"]
    If Param=0
      BANK= Extension_8_098C(Mid$(ID$,5,2))
      Gosub SELBANK
      ST["Loading powerpacked bank..."]
      Trap Extension_5_0120 F$,BANK : ERR=Errtrap
      ST["Done..."]
    Else
      ERR=-2
    End If
    Return
  End If
  If ID= Extension_8_0998("AmBk")
    ST["Loading single bank..."]
    BANK= Extension_8_098C(Mid$(ID$,5,2))
    Gosub SELBANK
    Trap Load F$,BANK
    ST["Done..."]
    Return
  End If
  If ID= Extension_8_0998("IMP!")
    REQUEST["This file is file imploded. Decrunch and check?","Decrunch|Cancel"]
    If Param=0
      ST["Loading imploded file..."]
      Trap Extension_8_0EA2 F$,1000 : ERR=Errtrap
      ST["Done..."]
      If ERR
        Erase 1000 : Return
      End If
      F$="T:Temp"
       Extension_8_0472 F$,Start(1000)
      ID=Leek(Start(1000)) : ID$=Peek$(Start(1000),12)
      Erase 1000
      Gosub BANKIDCHECK
    Else
      ERR=-2
    End If
    Return
  End If
  If ID= Extension_8_0998("PP20")
    REQUEST["This file is powerpacked. Decrunch and check?","Decrunch|Cancel"]
    If Param=0
      ST["Loading powerpacked file..."]
      Trap Extension_8_04E4 F$,1000 : ERR=Errtrap
      ST["Done..."]
      If ERR
        Erase 1000 : Return
      End If
      F$="T:Temp"
       Extension_8_0472 F$,Start(1000)
      ID=Leek(Start(1000)) : ID$=Peek$(Start(1000),12)
      Erase 1000
      Gosub BANKIDCHECK
      Kill F$
    Else
      ERR=-2
    End If
    Return
  End If
  ERR=-1
Return
SELBANK:
  If Length(BANK)
    REQUEST["This file would normally go into bank no."+Str$(BANK)+", erasing the current one. Select other bank?","Overwrite|Select"]
  Else
    REQUEST["This file would normally go into bank no."+Str$(BANK)+". Select other bank?","No|Yes"]
  End If
  If Param
    NUMENT["Enter the new bank number:","Ok",BANK,0,999]
    BANK=Val(Mid$(Param$,2))
  End If
Return
INIT:
  Screen Open 0,640,256,4,$8000
  Curs Off : Flash Off : Paper 0 : Pen 1 : Cls
  Palette 0,$FFF,$AAA,$666
  Colour 17,$BDF : Colour 18,$6F : Colour 19,$12
  Screen Display 0,128,40,320,256
  Gr Writing 0
  Multi Wait : Limit Mouse
  DEFCLOWIN[20,0,0]
  FILBOX[0,11,639,255,0]
  DEFTEX[21,19,0,616,10,"{AMCAF Bank Manager V1.0",1]
  DEFSCRTBK[22,617,0]
  DEFTEX[23,4,13,100,24,"Load banks",1]
  DEFTEX[24,4,26,100,37,"Save banks",1]
  DEFTEX[25,4,39,100,50,"Clear all",1]
  DEFTEX[26,4,52,100,63,"Quit out!",1]
  DEFTEX[27,103,13,200,24,"Load file",1]
  DEFTEX[28,103,26,200,37,"Save file",1]
  DEFTEX[29,103,39,200,50,"Clear bank",1]
  DEFTEX[30,103,52,200,63,"Kill file",1]
  DEFTEX[31,203,13,350,24,"PowerPack bank",1]
  DEFTEX[32,203,26,350,37,"FileImplode bank",1]
  DEFTEX[33,203,39,350,50,"Delta encode bank",1]
  DEFTEX[34,203,52,350,63,"Delta decode bank",1]
  DEFTEX[35,353,13,450,24,"Rename Bank",1]
  DEFTEX[36,353,26,450,37,"Banklength",1]
  DEFTEX[37,353,39,450,50,"Chip<->Fast",1]
  DEFTEX[38,353,52,450,63,"Temp<->Perm",1]
  DEFTEX[39,453,13,544,24,"Add Encode",1]
  DEFTEX[40,453,26,544,37,"Xor Encode",1]
  DEFTEX[41,453,39,544,50,"Mix Encode",1]
  DEFTEX[42,453,52,544,63,"Rol Encode",1]
  DEFTEX[43,547,13,635,24,"Add Decode",1]
  DEFTEX[44,547,26,635,37,"Xor Decode",1]
  DEFTEX[45,547,39,635,50,"Mix Decode",1]
  DEFTEX[46,547,52,635,63,"Rol Decode",1]
  DEFBOX[64,4,65,615,213,3]
  DEFARROWU[47,618,213-17]
  DEFARROWD[48,618,213-8]
  DEFBOX[50,618,65,635,213-18,3]
  DRASLIDER[50,0,18,1,49]
  DRABOX[4,215,635,241,1]
  ST["Welcome to AMCAF Bank Manager V1.0"]
  DEFTEX[51,8,217,50,227,"{",4]
  DEFTEX[52,53,217,140,227,"{",4]
  DEFTEX[53,143,217,210,227,"{",4]
  DEFTEX[54,333,217,631,227,"{",4]
  DEFTEX[55,213,217,270,227,"@ Fast",1]
  DEFTEX[56,273,217,330,227,"@ Temp",1]
  DEFTEX[57,8,229,100,239,"Swap Bank",1]
  DEFTEX[58,102,229,200,239,"Delete Bank",1]
  DEFTEX[59,202,229,300,239,"Duplicate",1]
  DEFTEX[60,302,229,400,239,"Unpack Bank",1]
  DEFTEX[61,402,229,480,239,"View Asc",1]
  DEFTEX[62,482,229,560,239,"View Hex",1]
  DEFTEX[63,562,229,631,239,"Custom",1]
Return
End Proc
Procedure ST[T$]
  TEXBOX[4,243,635,253,1,T$]
End Proc
Procedure FILEREQNOTIFY
  Shared FIL$()
  FIL$(0)=""
End Proc
Procedure FILEREQ[SN,SX,SY,YP,T$,F$,D$,PAT$,OK$,FAIL$,FON$,OP$]
  Shared FIL$(),MXFILES
  OTH=TH
  Gosub INIT
  Gosub SETUPSCREEN
  Gosub REFRESH
  Multi Wait : Limit Mouse
  OMK=0 : EXA=0 : ENT=0
  Do
    If Timer>25 and RDIR=1
      Sort FIL$(0)
      Gosub REFRESH
      Timer=0
    End If
    Repeat
      If RDIR Then Gosub EXAMINDIR Else Multi Wait
    Until Amos Here
    XM=X Screen(X Mouse) : YM=Y Screen(Y Mouse) : MK=Mouse Key : I$=Inkey$
    If MK=2 Then Gosub DEVLIST
    If I$<>"" and ENT>0
      STRGAD[ENT,I$]
      If Param=-1
        If ENT=6
          F$=Mid$(FB$(6),2) : BT=4
          FIL$(0)= Extension_8_08C4(FILOFF)+ Extension_8_08C4(MXNAMLEN)+RDIR$
          Exit
        End If
        If ENT=7
          DD$=D$
          D$=Mid$(FB$(7),2)
          If Exist(D$)
            Gosub NEWREAD
          Else
            REQUEST["Directory "+D$+" not found!","Oh sorry!"]
            D$=DD$
            NEWTEX[7,"{"+D$]
          End If
        End If
        If ENT=8
          PAT$=Mid$(FB$(8),2)
          Gosub NEWREAD
        End If
        ENT=0
      End If
    End If
    BT=0
    If MK=1 and OMK<>1
      CHKMOUSE[XM,YM,1,15]
      BT=Param
    End If
    If BT and ENT Then NEWTEX[ENT,FB$(ENT)] : ENT=0
    If BT=1 Then Gosub DRAGSCREEN
    If BT=11 Then Gosub SELECT
    If BT=2 or BT=4 or BT=5
      If RDIR
        FIL$(0)=""
      Else
        FIL$(0)= Extension_8_08C4(FILOFF)+ Extension_8_08C4(MXNAMLEN)+RDIR$
      End If
      Exit
    End If
    If BT=3 Then Amos To Back
    If BT>5 and BT<9 Then ENT=BT : STRGAD[BT,""]
    If BT=9 Then Gosub DEVLIST
    If BT=10 Then Gosub PARDIR
    If BT=12 Then Gosub DRAGSLIDER
    If BT=13 Then Gosub ARROWUP
    If BT=14 Then Gosub ARROWDOWN
    If BT=15 Then Gosub FLIPPAGE
    OMK=MK
  Loop
  Screen Close SN
  For A=1 To 15
    DISGAD[A]
  Next
  If BT=4 Then A$= Extension_8_03EC(D$)+F$ Else A$=""
  TH=OTH
  Trap Limit Mouse
Pop Proc[A$]
INIT:
  If SN<0
    For A=0 To 7
      Trap Screen A
      If Errtrap : SN=A : Exit : End If
    Next
  End If
  If T$="" Then T$="AMCAF File Selector"
  If D$="" Then D$= Extension_8_03E0(Dir$)
  If Instr(OP$,"P") Then PAT=1 Else PAT=0
  If Instr(OP$,"R") Then FIL$(0)=""
  If Instr(OP$,"D") Then DIONLY=1 Else DIONLY=0
  If Instr(OP$,"Q") Then QUICK=1 Else QUICK=0
  If Instr(OP$,"S") Then SAVREQ=1 Else SAVREQ=0
  KICK=Deek(Leek(4)+20)
  If KICK<37 Then PAT=0
  SX=Max(Min((SX+15) and $FFE0,640),160)
  SY=Max(Min(SY,256),96)
  If YP<40 Then YP=168-SY/2
  If FIL$(0)<>""
    RDIR$=Mid$(FIL$(0),5)
    If D$<>RDIR$
      FIL$(0)=""
      RDIR=1 : NUMFIL=0 : FILOFF=0 : SELFIL=-1
      Return
    End If
    For A=1 To MXFILES
      Exit If FIL$(A)=Chr$(255)
    Next
    NUMFIL=A-1 : FILOFF= Extension_8_098C(FIL$(0))
    MXNAMLEN= Extension_8_098C(Mid$(FIL$(0),3))
    RDIR=0
  Else
    RDIR=1 : NUMFIL=0 : FILOFF=0 : SELFIL=-1
  End If
Return
SETUPSCREEN:
  Screen Open SN,SX,SY,4,$8000
  Curs Off : Flash Off : Paper 2 : Pen 1 : Cls 0
  Palette 0,$FFF,$AAA,$666
  Colour 17,$BDF : Colour 18,$6F : Colour 19,$12
  Screen Display SN,288-SX/4,YP,SX,SY
  If FON$<>""
    A=Val(Left$(FON$,2))
    If A>0
      Trap Extension_8_05B0 Mid$(FON$,3),A
      If Errtrap=0
        TH=A
      End If
    End If
  End If
  Gr Writing 0
  DEFCLOWIN[2,0,0]
  FILBOX[0,TH+3,SX-1,SY-1,0]
  DEFTEX[1,19,0,SX-24,TH+2,"{"+T$,3]
  DEFSCRTBK[3,SX-23,0]
  A=Text Length("Pattern:")+8
  If DIONLY=0
    DEFTEX[6,A,SY-TH*2-9,SX-5,SY-TH-7,"{"+F$,7]
    TEX[4,FB(6,1),FB(6,0),FB(6,3),"}File:"]
    FY2=SY-TH*3-13
  Else
    FY2=SY-TH*2-9
  End If
  DEFTEX[7,A,FY2,SX-5,FY2+TH+2,"{"+D$,7]
  TEX[4,FB(7,1),FB(7,0),FB(7,3),"}Dir:"]
  If PAT
    DEFTEX[8,A,FY2-TH-4,SX-5,FY2-2,"{"+PAT$,7]
    TEX[4,FB(8,1),FB(8,0),FB(8,3),"}Pattern:"]
    FY2=FB(8,1)-2
  Else
    FY2=FB(7,1)-2
  End If
  DEFTEX[4,4,SY-TH-5,SX/4-2,SY-3,OK$,1]
  DEFTEX[9,SX/4+1,SY-TH-5,SX/2-3,SY-3,"Devices",1]
  DEFTEX[10,SX/2,SY-TH-5,SX/2+SX/4-4,SY-3,"Parent",1]
  If Right$(D$,1)=":" Then DEAGAD[10]
  DEFTEX[5,SX/2+SX/4-1,SY-TH-5,SX-5,SY-3,FAIL$,1]
  DEFARROWU[13,SX-22,FY2-17]
  DEFARROWD[14,SX-22,FY2-8]
  D=(FY2-TH-9)
  MXLIN=D/TH
  FY1=TH+7+(D-TH*MXLIN)/2
  DEFBOX[15,SX-22,TH+5,SX-5,FY2-18,3]
  DRASLIDER[15,FILOFF,MXLIN,NUMFIL,12]
Return
PARDIR:
  If Right$(D$,1)=":" Then Return
  If RDIR Then Extension_8_0660
  D$= Extension_8_03E0(D$)
  Gosub NEWREAD
Return
NEWREAD:
  If RDIR Then Extension_8_0660
  NEWTEX[7,"{"+D$]
  EXA=0 : RDIR=1 : Gosub EXAMINDIR
  If Right$(D$,1)=":" Then DEAGAD[10] Else ACTGAD[10]
  ACTGAD[9]
Return
DEVLIST:
  If RDIR=1 or Right$(FIL$(NUMFIL),1)=":" Then Return
  FILOFF=NUMFIL
  F$=Dev First$("")
  While NUMFIL<MXFILES and(F$<>"")
    F$=Mid$(F$,2,Instr(F$,":")-1)
    TYP= Extension_8_02D0(F$)
    If TYP=0
      MXNAMLEN=Max(MXNAMLEN,Len(F$))
      Request Off
      Trap Extension_8_0672 F$
      A=Errtrap
      Request On
      If A=0
        NAM$= Extension_8_06D8
        SOR$="A"+Upper$(F$)+Chr$(0)+"  <Dev> "+F$+Chr$(0)+" ("+NAM$+") "
      Else
        SOR$="A"+Upper$(F$)+Chr$(0)+"  <Dev> "+F$+Chr$(0)+" "+ Extension_8_0522( Extension_8_0532 )
      End If
      Inc NUMFIL
      FIL$(NUMFIL)=SOR$
    End If
    If TYP=1
      MXNAMLEN=Max(MXNAMLEN,Len(F$))
      Inc NUMFIL
      FIL$(NUMFIL)="B"+Upper$(F$)+Chr$(0)+"  <Dir> "+F$+Chr$(0)+" Assign"
    End If
    F$=Dev Next$
  Wend
  Sort FIL$(0)
  FILOFF=Min(FILOFF,NUMFIL-MXLIN)
  Gosub REFRESH
  DEAGAD[9]
Return
SELECT:
  Y=YM-FY1
  If Y<0 or Y>=FY1+MXLIN*TH Then Return
  F=Y/TH+FILOFF+1
  If F>NUMFIL Then Return
  TYP=Asc(FIL$(F))
  A$=Peek$(Varptr(FIL$(F))+Instr(FIL$(F),Chr$(0))+8,40,Chr$(0))
  If TYP=32
    D$= Extension_8_03EC(D$)+A$
    Gosub NEWREAD
  End If
  If TYP=45
    F$=A$
    NEWTEX[6,"{"+F$]
    If SELFIL<>F
      If SELFIL-FILOFF=>0 and SELFIL-FILOFF<=MXLIN
        A=SELFIL-FILOFF-1 : SELFIL=-1
        Gosub LISTFILE
      End If
      SELFIL=F : A=SELFIL-FILOFF-1 : Timer=0
      Gosub LISTFILE
    Else
      If Timer<50 and SAVREQ=0
        BT=4
      End If
    End If
  End If
  If TYP=65 or TYP=66
    D$=A$ : Gosub NEWREAD
  End If
Return
DRAGSCREEN:
  PUSHGAD[BT]
  A=YM
  Limit Mouse X Hard(0),40+A To X Hard(SX-1),296-SY+A
  Repeat
    If RDIR : Gosub EXAMINDIR : Else Multi Wait : End If
    YM=Y Screen(Y Mouse)-A : MK=Mouse Key : I$=Inkey$
    Add YP,YM
    Screen Display SN,,YP,,
  Until MK<>1
  Multi Wait : Limit Mouse
  OMK=1
  RELEGAD[BT]
Return
ARROWUP:
  PUSHGAD[BT]
  Repeat
    Multi Wait
    MK=Mouse Key : I$=Inkey$
    If FILOFF>0
      Dec FILOFF
      Gosub SCROLFILES
    End If
  Until MK<>1
  RELEGAD[BT]
Return
ARROWDOWN:
  PUSHGAD[BT]
  Repeat
    Multi Wait
    MK=Mouse Key : I$=Inkey$
    If FILOFF<NUMFIL-MXLIN
      Inc FILOFF
      Gosub SCROLFILES
    End If
  Until MK<>1
  RELEGAD[BT]
Return
DRAGSLIDER:
  DISGAD[12]
  O=YM-FB(12,1)
  Repeat
    Multi Wait
    XM=X Screen(X Mouse) : YM=Y Screen(Y Mouse) : MK=Mouse Key : I$=Inkey$
    DRAGSLIDER[15,YM-O,MXLIN,NUMFIL,12]
    If NUMFIL>MXLIN
      FILOFF=Param
      Gosub SCROLFILES
    End If
  Until MK<>1
  ENAGAD[12]
  DRASLIDER[15,FILOFF,MXLIN,NUMFIL,12]
  OMK=1
Return
REFRESH:
  DEFBOX[11,4,TH+5,SX-25,FY2,7]
  If NUMFIL>0
    For A=0 To Min(MXLIN-1,NUMFIL-1)
      Gosub LISTFILE
    Next
    OLDOFF=FILOFF
  End If
  If FB(12,4) and 1 Then DRASLIDER[15,FILOFF,MXLIN,NUMFIL,12]
Return
SCROLFILES:
  If OLDOFF=FILOFF Then Return
  X1=FB(11,0)+2 : X2=FB(11,2)-2 : Y1=FY1+1 : Y2=FY1+TH*MXLIN+1
  D=FILOFF-OLDOFF
  If Abs(D)>MXLIN-2 Then Gosub REFRESH : Return
  If D>0
    Screen Copy SN,X1,Y1+D*TH,X2,Y2 To SN,X1,Y1
    For A=MXLIN-D To MXLIN-1
      Gosub LISTFILE
    Next
  Else
    Screen Copy SN,X1,Y1,X2,Y2+D*TH To SN,X1,Y1-D*TH
    For A=0 To -D-1
      Gosub LISTFILE
    Next
  End If
  OLDOFF=FILOFF
  If FB(12,4) and 1 Then DRASLIDER[15,FILOFF,MXLIN,NUMFIL,12]
Return
FLIPPAGE:
  If NUMFIL<MXLIN Then Return
  If YM>(FB(12,1)+FB(12,3))/2
    FILOFF=Min(FILOFF+MXLIN,NUMFIL-MXLIN)
  Else
    FILOFF=Max(FILOFF-MXLIN,0)
  End If
  Gosub REFRESH
  DRASLIDER[15,FILOFF,MXLIN,NUMFIL,12]
Return
LISTFILE:
  If QUICK
    A$=FIL$(A+FILOFF+1)
    A$=Peek$(Varptr(A$)+Instr(A$,Chr$(0)),40,Chr$(0))
  Else
    A$=FIL$(A+FILOFF+1)
    B$=Mid$(A$,Instr(A$,Chr$(0))+1)
    FIL$=Left$(B$,Instr(B$,Chr$(0))-1)
    RES$=Mid$(B$,Len(FIL$)+2)
    A$=FIL$+Space$(MXNAMLEN-(Len(FIL$)-8))+RES$
  End If
  If Asc(FIL$(A+FILOFF+1))<>45
    TEX2[6,FY1+A*TH,SX-28,FY1+(A+1)*TH+1,"{"+A$]
  Else
    TEX[6,FY1+A*TH,SX-28,FY1+(A+1)*TH+1,"{"+A$]
  End If
  If A+FILOFF+1=SELFIL
    Gr Writing 2
    Ink 2 : Bar 8,FY1+A*TH+1 To SX-29,FY1+(A+1)*TH
    Gr Writing 0
  End If
Return
EXAMINDIR:
  If EXA=0
    FILOFF=0 : NUMFIL=0 : MXNAMLEN=5 : RDIR$=D$
    SELFIL=-1
    For A=1 To MXFILES
      FIL$(A)=Chr$(255)
    Next
    Trap Extension_8_063A D$
    If Errtrap=0
      EXA=1 : Timer=0
    Else
      Gosub REFRESH
      REQUEST[ Extension_8_0522( Extension_8_0532 )+"!","Cancel"]
      RDIR=0 : Return
    End If
  End If
  If NUMFIL=MXFILES
     Extension_8_0660
    Sort FIL$(0)
    RDIR=0
    Gosub REFRESH
    Return
  End If
  FIL$= Extension_8_064C
  If FIL$=""
    Sort FIL$(0)
    Timer=0 : RDIR=0 : Gosub REFRESH
    Return
  End If
  TYP= Extension_8_0688
  If QUICK=0
    DATE$=Mid$( Extension_8_0F0A( Extension_8_06F4 ),4)+" "+ Extension_8_0F1A( Extension_8_070E )
    COM$= Extension_8_0762
    FLAG$= Extension_8_0728( Extension_8_0742 )
  End If
  If TYP<0
    If DIONLY=0
      If KICK>36
        A= Extension_8_0300(FIL$,PAT$)
      Else
        A=-1
      End If
    Else
      A=0
    End If
    If A
      MXNAMLEN=Max(MXNAMLEN,Len(FIL$))
      SIZE$= Extension_8_0EC8( Extension_8_06A2 ,7)
      Inc NUMFIL
      If QUICK
        FIL$(NUMFIL)="-"+Upper$(FIL$)+Chr$(0)+SIZE$+" "+FIL$+Chr$(0)
      Else
        SOR$="-"+Upper$(FIL$)+Chr$(0)+SIZE$+" "+FIL$+Chr$(0)+DATE$+" "+FLAG$+" "+COM$
        FIL$(NUMFIL)=SOR$
      End If
    End If
  Else
    MXNAMLEN=Max(MXNAMLEN,Len(FIL$))
    Inc NUMFIL
    If QUICK
      FIL$(NUMFIL)=" "+Upper$(FIL$)+Chr$(0)+"  <Dir> "+FIL$+Chr$(0)
    Else
      SOR$=" "+Upper$(FIL$)+Chr$(0)+"  <Dir> "+FIL$+Chr$(0)+DATE$+" "+FLAG$+" "+COM$
      FIL$(NUMFIL)=SOR$
    End If
  End If
Return
End Proc
Procedure REQUEST[T$,OP$]
  Dim LIN$(10)
  OPT=1 : OTH=TH
  For A=1 To Len(OP$)
    If Mid$(OP$,A,1)="|" Then Inc OPT
  Next
  If Screen=-1
    TH=8
    SX=Max(Len(OP$)*8+OPT*32+8+15,320) and $FE0
    LPR=SX/8-2
  Else
    SX=Max(Text Length(OP$)+OPT*32+8+15,320) and $FE0
    LPR=SX/Text Length("M")-2
  End If
  LI=0 : LP=1 : LILE=0
  For A=1 To Len(T$)
    P=Asc(Mid$(T$,A,1))
    Inc LILE
    If LILE>LPR
      LIN$(LI)=Mid$(T$,LP,SP-LP+1)
      LP=SP+2 : LILE=A-LP
      Inc LI
    End If
    If P=32 Then SP=A-1
    If P=167 Then LILE=LPR+2 : SP=A-1
  Next
  LIN$(LI)=Mid$(T$,LP) : Inc LI
  NBLI=LI-1
  SY=32+LI*TH
  If Screen=-1
    SN=0
    Screen Open SN,SX,SY,4,$8000
    Curs Off : Flash Off : Paper 2 : Pen 1 : Cls 0
    Palette 0,$FFF,$AAA,$666
    Colour 17,$BDF : Colour 18,$6F : Colour 19,$12
    Screen Display SN,288-SX/4,168-SY/2,SX,SY
    Gr Writing 0
    Wait Vbl : Limit Mouse
    OLDSCR=-1
    XP=0 : YP=0
  Else
    If Screen Height<SY or Screen Width<SX or Screen Colour<4
      For A=0 To 7
        Trap Screen A
        If Errtrap : SN=A : Exit : End If
      Next
      OLDSCR=Screen
      Screen Open SN,SX,SY,4,$8000
      Curs Off : Flash Off : Paper 2 : Pen 1 : Cls 0
      Get Palette OLDSCR
      Screen Display SN,288-SX/4,168-SY/2,SX,SY
      Gr Writing 0
      Wait Vbl : Limit Mouse
      XP=0 : YP=0
    Else
      XP=(Screen Width-SX)/2
      YP=(Screen Height-SY)/2
      SN=-1
      Get Cblock 9,XP-4,YP-2,SX+16,SY+4
      DRABOX[XP-4,YP-2,XP+SX+3,YP+SY+1,0]
      DRABOX[XP-2,YP-1,XP+SX+1,YP+SY,1]
      Limit Mouse X Hard(XP),Y Hard(YP) To X Hard(XP+SX-1),Y Hard(YP+SY-1)
    End If
  End If
  FILBOX[XP,YP,XP+SX-1,YP+SY-1,0]
  For A=0 To NBLI
    TEX[XP+4,YP+4+A*TH,XP+SX-5,YP+12+A*TH,LIN$(A)]
  Next
  OP=0
  For A=1 To OPT
    NP=Instr(OP$,"|",OP+1) : If NP=0 Then NP=Len(OP$)+1
    T$=Mid$(OP$,OP+1,NP-OP-1)
    X1=XP+4+((A-1)*(SX-6))/OPT
    X2=XP+1+(A*(SX-6))/OPT
    DEFTEX[15+A,X1,YP+SY-TH-14,X2,YP+SY-3,T$,1]
    OP=NP
  Next
  OMK=0
  Do
    Repeat : Multi Wait : Until Amos Here
    XM=X Screen(X Mouse) : YM=Y Screen(Y Mouse) : MK=Mouse Key : I$=Inkey$
    BT=0
    If MK=1 and OMK<>1
      CHKMOUSE[XM,YM,16,15+OPT]
      BT=Param
    End If
    Exit If BT
    OMK=MK
  Loop
  For A=1 To OPT
    DISGAD[15+A]
  Next
  Limit Mouse
  If SN>-1
    Screen Close SN
    If OLDSCR>-1
      Screen OLDSCR
    End If
  Else
    Put Cblock 9
    Del Cblock 9
  End If
  TH=OTH
End Proc[BT-16]
Procedure NUMENT[T$,OP$,DEFNUM,LOWER,UPPER]
  Dim LIN$(10)
  OPT=1 : OTH=TH
  For A=1 To Len(OP$)
    If Mid$(OP$,A,1)="|" Then Inc OPT
  Next
  If Screen=-1
    TH=8
    SX=Max(Len(OP$)*8+OPT*32+8+15,320) and $FE0
    LPR=SX/8-2
  Else
    SX=Max(Text Length(OP$)+OPT*32+8+15,320) and $FE0
    LPR=SX/Text Length("M")-2
  End If
  LI=0 : LP=1 : LILE=0
  For A=1 To Len(T$)
    P=Asc(Mid$(T$,A,1))
    Inc LILE
    If LILE>LPR
      LIN$(LI)=Mid$(T$,LP,SP-LP+1)
      LP=SP+2 : LILE=A-LP
      Inc LI
    End If
    If P=32 Then SP=A-1
    If P=167 Then LILE=LPR+2 : SP=A-1
  Next
  LIN$(LI)=Mid$(T$,LP) : Inc LI
  NBLI=LI-1
  SY=48+LI*TH
  If Screen=-1
    SN=0
    Screen Open SN,SX,SY,4,$8000
    Curs Off : Flash Off : Paper 2 : Pen 1 : Cls 0
    Palette 0,$FFF,$AAA,$666
    Colour 17,$BDF : Colour 18,$6F : Colour 19,$12
    Screen Display SN,288-SX/4,168-SY/2,SX,SY
    Gr Writing 0
    Wait Vbl : Limit Mouse
    OLDSCR=-1
    XP=0 : YP=0
  Else
    If Screen Height<SY or Screen Width<SX or Screen Colour<4
      For A=0 To 7
        Trap Screen A
        If Errtrap : SN=A : Exit : End If
      Next
      OLDSCR=Screen
      Screen Open SN,SX,SY,4,$8000
      Curs Off : Flash Off : Paper 2 : Pen 1 : Cls 0
      Get Palette OLDSCR
      Screen Display SN,288-SX/4,168-SY/2,SX,SY
      Gr Writing 0
      Wait Vbl : Limit Mouse
      XP=0 : YP=0
    Else
      XP=(Screen Width-SX)/2
      YP=(Screen Height-SY)/2
      SN=-1
      Get Cblock 9,XP-4,YP-2,SX+16,SY+4
      DRABOX[XP-4,YP-2,XP+SX+3,YP+SY+1,0]
      DRABOX[XP-2,YP-1,XP+SX+1,YP+SY,1]
      Limit Mouse X Hard(XP),Y Hard(YP) To X Hard(XP+SX-1),Y Hard(YP+SY-1)
    End If
  End If
  FILBOX[XP,YP,XP+SX-1,YP+SY-1,0]
  For A=0 To NBLI
    TEX[XP+4,YP+4+A*TH,XP+SX-5,YP+12+A*TH,LIN$(A)]
  Next
  DEFTEX[16,XP+4,YP+SY-TH*2-18,XP+SX-5,YP+SY-TH-16,"{"+Mid$(Str$(DEFNUM),2),7]
  OP=0
  For A=1 To OPT
    NP=Instr(OP$,"|",OP+1) : If NP=0 Then NP=Len(OP$)+1
    T$=Mid$(OP$,OP+1,NP-OP-1)
    X1=XP+4+((A-1)*(SX-6))/OPT
    X2=XP+1+(A*(SX-6))/OPT
    DEFTEX[16+A,X1,YP+SY-TH-14,X2,YP+SY-3,T$,1]
    OP=NP
  Next
  OMK=0
  STRGAD[16,""]
  Do
    Repeat : Multi Wait : Until Amos Here
    XM=X Screen(X Mouse) : YM=Y Screen(Y Mouse) : MK=Mouse Key : I$=Inkey$
    BT=17
    If I$<>""
      If I$<" " or(I$>="0" and I$<="9")
        If Not(I$="0" and NUM=0)
          STRGAD[16,I$]
          Exit If Param=-1
        End If
      End If
    End If
    NUM=Val(Mid$(FB$(16),2))
    If NUM<LOWER
      NUM=LOWER
      NEWTEX[16,"{"+Mid$(Str$(NUM),2)]
      STRGAD[16,""]
    End If
    If NUM>UPPER
      NUM=UPPER
      NEWTEX[16,"{"+Mid$(Str$(NUM),2)]
      STRGAD[16,""]
    End If
    BT=0
    If MK=1 and OMK<>1
      CHKMOUSE[XM,YM,16,16+OPT]
      BT=Param
    End If
    Exit If BT>16
    OMK=MK
  Loop
  For A=1 To OPT+1
    DISGAD[15+A]
  Next
  Limit Mouse
  If SN>-1
    Screen Close SN
    If OLDSCR>-1
      Screen OLDSCR
    End If
  Else
    Put Cblock 9
    Del Cblock 9
  End If
  TH=OTH
  A$= Extension_8_0EB8(BT-17,1)+Mid$(Str$(NUM),2)
End Proc[A$]
Procedure TXTENT[T$,OP$,DEFTXT$,NUMLET]
  Dim LIN$(10)
  OPT=1 : OTH=TH
  For A=1 To Len(OP$)
    If Mid$(OP$,A,1)="|" Then Inc OPT
  Next
  If Screen=-1
    TH=8
    SX=Max(Len(OP$)*8+OPT*32+8+15,320) and $FE0
    LPR=SX/8-2
  Else
    SX=Max(Text Length(OP$)+OPT*32+8+15,320) and $FE0
    LPR=SX/Text Length("M")-2
  End If
  LI=0 : LP=1 : LILE=0
  For A=1 To Len(T$)
    P=Asc(Mid$(T$,A,1))
    Inc LILE
    If LILE>LPR
      LIN$(LI)=Mid$(T$,LP,SP-LP+1)
      LP=SP+2 : LILE=A-LP
      Inc LI
    End If
    If P=32 Then SP=A-1
    If P=167 Then LILE=LPR+2 : SP=A-1
  Next
  LIN$(LI)=Mid$(T$,LP) : Inc LI
  NBLI=LI-1
  SY=48+LI*TH
  If Screen=-1
    SN=0
    Screen Open SN,SX,SY,4,$8000
    Curs Off : Flash Off : Paper 2 : Pen 1 : Cls 0
    Palette 0,$FFF,$AAA,$666
    Colour 17,$BDF : Colour 18,$6F : Colour 19,$12
    Screen Display SN,288-SX/4,168-SY/2,SX,SY
    Gr Writing 0
    Wait Vbl : Limit Mouse
    OLDSCR=-1
    XP=0 : YP=0
  Else
    If Screen Height<SY or Screen Width<SX or Screen Colour<4
      For A=0 To 7
        Trap Screen A
        If Errtrap : SN=A : Exit : End If
      Next
      OLDSCR=Screen
      Screen Open SN,SX,SY,4,$8000
      Curs Off : Flash Off : Paper 2 : Pen 1 : Cls 0
      Get Palette OLDSCR
      Screen Display SN,288-SX/4,168-SY/2,SX,SY
      Gr Writing 0
      Wait Vbl : Limit Mouse
      XP=0 : YP=0
    Else
      XP=(Screen Width-SX)/2
      YP=(Screen Height-SY)/2
      SN=-1
      Get Cblock 9,XP-4,YP-2,SX+16,SY+4
      DRABOX[XP-4,YP-2,XP+SX+3,YP+SY+1,0]
      DRABOX[XP-2,YP-1,XP+SX+1,YP+SY,1]
      Limit Mouse X Hard(XP),Y Hard(YP) To X Hard(XP+SX-1),Y Hard(YP+SY-1)
    End If
  End If
  FILBOX[XP,YP,XP+SX-1,YP+SY-1,0]
  For A=0 To NBLI
    TEX[XP+4,YP+4+A*TH,XP+SX-5,YP+12+A*TH,LIN$(A)]
  Next
  DEFTEX[16,XP+4,YP+SY-TH*2-18,XP+SX-5,YP+SY-TH-16,"{"+DEFTXT$,7]
  OP=0
  For A=1 To OPT
    NP=Instr(OP$,"|",OP+1) : If NP=0 Then NP=Len(OP$)+1
    T$=Mid$(OP$,OP+1,NP-OP-1)
    X1=XP+4+((A-1)*(SX-6))/OPT
    X2=XP+1+(A*(SX-6))/OPT
    DEFTEX[16+A,X1,YP+SY-TH-14,X2,YP+SY-3,T$,1]
    OP=NP
  Next
  OMK=0
  STRGAD[16,""]
  Do
    Repeat : Multi Wait : Until Amos Here
    XM=X Screen(X Mouse) : YM=Y Screen(Y Mouse) : MK=Mouse Key : I$=Inkey$
    BT=17
    If I$<>""
      STRGAD[16,I$]
      Exit If Param=-1
    End If
    TXT$=Mid$(FB$(16),2)
    If Len(TXT$)>NUMLET
      NEWTEX[16,"{"+Left$(TXT$,NUMLET)]
      STRGAD[16,""]
    End If
    BT=0
    If MK=1 and OMK<>1
      CHKMOUSE[XM,YM,16,16+OPT]
      BT=Param
    End If
    Exit If BT>16
    OMK=MK
  Loop
  For A=1 To OPT+1
    DISGAD[15+A]
  Next
  Limit Mouse
  If SN>-1
    Screen Close SN
    If OLDSCR>-1
      Screen OLDSCR
    End If
  Else
    Put Cblock 9
    Del Cblock 9
  End If
  TH=OTH
  A$= Extension_8_0EB8(BT-17,1)+TXT$
End Proc[A$]
Procedure CHKMOUSE[XM,YM,LL,UL]
  For BT=LL To UL
    If XM=>FB(BT,0) and XM<=FB(BT,2) and YM=>FB(BT,1) and YM<=FB(BT,3) and(FB(BT,4) and 1) Then Exit
  Next
  If BT>UL Then Pop Proc[0]
  If FB(BT,4) and 2 Then Pop Proc[BT]
  OST=-1 : AA=0
  ST= Extension_8_093A(FB(BT,4) and 4,2)
  Repeat
    Multi Wait
    XM=X Screen(X Mouse) : YM=Y Screen(Y Mouse) : MK=Mouse Key : I$=Inkey$
    If XM=>FB(BT,0) and XM<=FB(BT,2) and YM=>FB(BT,1) and YM<=FB(BT,3) Then A=1 Else A=0
    If AA<>A Then AA=A : ST=1-ST
    If OST<>ST
      If ST
        PUSHGAD[BT]
      Else
        RELEGAD[BT]
      End If
      OST=ST
    End If
  Until MK<>1
  If A=0 Then Pop Proc[0]
  If ST
    RELEGAD[BT]
  Else
    PUSHGAD[BT]
  End If
End Proc[BT]
Procedure DEFTEX[BT,X1,Y1,X2,Y2,T$,FL]
  TEXBOX[X1,Y1,X2,Y2, Extension_8_093A(FL and 4,2),T$]
  DEFGAD[BT,X1,Y1,X2,Y2,FL]
  FB$(BT)=T$
End Proc
Procedure DEFBOX[BT,X1,Y1,X2,Y2,FL]
  FILBOX[X1,Y1,X2,Y2, Extension_8_093A(FL and 4,2)]
  DEFGAD[BT,X1,Y1,X2,Y2,FL]
End Proc
Procedure DEFGAD[BT,X1,Y1,X2,Y2,FL]
  FB(BT,0)=X1 : FB(BT,1)=Y1
  FB(BT,2)=X2 : FB(BT,3)=Y2
  FB(BT,4)=FL
  FB$(BT)=""
End Proc
Procedure DEAGAD[BT]
  If(FB(BT,4) and 1)=0 Then Pop Proc
  FB(BT,4)=FB(BT,4) and $FE
  Set Pattern 2
  Ink 3 : Bar FB(BT,0),FB(BT,1) To FB(BT,2),FB(BT,3)
  Set Pattern 0
End Proc
Procedure ACTGAD[BT]
  If FB(BT,4) and 1 Then Pop Proc
  CLRGAD[BT]
  FB(BT,4)=FB(BT,4) or 1
  If FB$(BT)<>""
    TEXBOX[FB(BT,0),FB(BT,1),FB(BT,2),FB(BT,3), Extension_8_093A(FB(BT,4) and 4,2),FB$(BT)]
  Else
    DRABOX[FB(BT,0),FB(BT,1),FB(BT,2),FB(BT,3), Extension_8_093A(FB(BT,4) and 4,2)]
  End If
End Proc
Procedure DISGAD[BT]
  FB(BT,4)=FB(BT,4) and $FE
End Proc
Procedure ENAGAD[BT]
  FB(BT,4)=FB(BT,4) or 1
End Proc
Procedure CLRGAD[BT]
  FB(BT,4)=FB(BT,4) and $FE
  Ink 2 : Bar FB(BT,0),FB(BT,1) To FB(BT,2),FB(BT,3)
End Proc
Procedure PUSHGAD[BT]
  DRABOX[FB(BT,0),FB(BT,1),FB(BT,2),FB(BT,3),1]
End Proc
Procedure RELEGAD[BT]
  DRABOX[FB(BT,0),FB(BT,1),FB(BT,2),FB(BT,3),0]
End Proc
Procedure FILBOX[X1,Y1,X2,Y2,SE]
  Ink 2 : Bar X1+2,Y1+1 To X2-2,Y2-1
   Extension_8_0388 X1,Y2,2
   Extension_8_0388 X2,Y1,2
  Ink 1+SE*2 : Draw X1,Y2-1 To X1,Y1 : Draw To X2-1,Y1 : Draw X1+1,Y2-1 To X1+1,Y1
  Ink 3-SE*2 : Draw X1+1,Y2 To X2,Y2 : Draw To X2,Y1+1 : Draw X2-1,Y2 To X2-1,Y1+1
End Proc
Procedure NEWTEX[BT,T$]
  FB$(BT)=T$
  TEX[FB(BT,0)+1,FB(BT,1),FB(BT,2)-1,FB(BT,3),T$]
End Proc
Procedure TEXBOX[X1,Y1,X2,Y2,SE,T$]
  TEX[X1+1,Y1,X2-1,Y2,T$]
   Extension_8_0388 X1,Y2,2 : Extension_8_0388 X2,Y1,2
  Ink 1+SE*2 : Draw X1,Y2-1 To X1,Y1 : Draw To X2-1,Y1 : Draw X1+1,Y2-1 To X1+1,Y1
  Ink 3-SE*2 : Draw X1+1,Y2 To X2,Y2 : Draw To X2,Y1+1 : Draw X2-1,Y2 To X2-1,Y1+1
End Proc
Procedure TEX[X1,Y1,X2,Y2,T$]
  If Asc(T$)=123
    M=1 : T$=Mid$(T$,2)
  Else
    If Asc(T$)=125
      M=2 : T$=Mid$(T$,2)
    Else
      M=0
    End If
  End If
  TL=Text Length(T$)
  While TL>(X2-X1)-4
    T$=Left$(T$,Len(T$)-1)
    TL=Text Length(T$)
  Wend
  If M=1
    X=X1+4 : Y=Y1+1
  Else
    If M=2
      X=X2-Text Length(T$)-2 : Y=Y1+1
    Else
      X=(X1+X2-TL)/2 : Y=(Y1+Y2-TH+1)/2
    End If
  End If
  If Y2>0 Then Ink 2 : Bar X1+1,Y1+1 To X2-1,Y2-1
  Ink 0 : Text X,Y+Text Base,T$
End Proc
Procedure TEX2[X1,Y1,X2,Y2,T$]
  If Asc(T$)=123
    M=1 : T$=Mid$(T$,2)
  Else
    If Asc(T$)=125
      M=2 : T$=Mid$(T$,2)
    Else
      M=0
    End If
  End If
  TL=Text Length(T$)
  While TL>(X2-X1)-4
    T$=Left$(T$,Len(T$)-1)
    TL=Text Length(T$)
  Wend
  If M=1
    X=X1+4 : Y=Y1+1
  Else
    If M=2
      X=X2-Text Length(T$)-2 : Y=Y1+1
    Else
      X=(X1+X2-TL)/2 : Y=(Y1+Y2-TH+1)/2
    End If
  End If
  If Y2>0 Then Ink 2 : Bar X1+1,Y1+1 To X2-1,Y2-1
  Ink 1 : Text X,Y+Text Base,T$
End Proc
Procedure DRABOX[X1,Y1,X2,Y2,SE]
  Ink 1+SE*2 : Draw X1,Y2-1 To X1,Y1 : Draw To X2-1,Y1 : Draw X1+1,Y2-1 To X1+1,Y1
  Ink 3-SE*2 : Draw X1+1,Y2 To X2,Y2 : Draw To X2,Y1+1 : Draw X2-1,Y2 To X2-1,Y1+1
End Proc
Procedure STRGAD[BT,I$]
  Shared POS
  A$=FB$(BT)
  If I$=""
    POS=Len(A$)-1
  End If
  If I$>Chr$(31) Then A$=Left$(A$,POS+1)+I$+Mid$(A$,POS+2) : Inc POS
  If I$=Chr$(8) and POS>0 Then A$=Left$(A$,POS)+Mid$(A$,POS+2) : Dec POS
  If I$=Cleft$ and POS>0 Then Dec POS
  If I$=Cright$ and POS<Len(A$)-1 Then Inc POS
  If I$=Chr$(13)
    NEWTEX[BT,A$]
    Pop Proc[-1]
  End If
  NEWTEX[BT,A$]
  X1=FB(BT,0)+5+Text Length(Mid$(A$,2,POS)) : Y1=FB(BT,1)+1
  X2=X1+Max(Text Length(Mid$(A$,POS+2,1)),4)
  If X2<FB(BT,2)-4
    Gr Writing 2
    Ink 3 : Bar X1,Y1 To X2-1,Y1+TH-1
    Gr Writing 0
  End If
End Proc[0]
Procedure DEFCLOWIN[BT,X,Y]
  DRACLOWIN[X,Y]
  DEFGAD[BT,X,Y,X+18,Y+TH+2,1]
End Proc
Procedure DRACLOWIN[X,Y]
  FILBOX[X,Y,X+18,Y+TH+2,0]
  Ink 0 : Box 7+X,3+Y To 11+X,Y+TH-1
End Proc
Procedure DEFSCRTBK[BT,X,Y]
  DRASCRTBK[X,Y]
  DEFGAD[BT,X,Y,X+22,Y+TH+2,1]
End Proc
Procedure DRASCRTBK[X,Y]
  FILBOX[X,Y,X+22,Y+TH+2,0]
  Ink 0 : Box 4+X,2+Y To 14+X,Y+TH/2+2
  Ink 2 : Bar 8+X,Y+TH/2 To 18+X,Y+TH
  Ink 0 : Box 8+X,Y+TH/2 To 18+X,Y+TH
End Proc
Procedure DEFARROWU[BT,X,Y]
  DRAARROWU[X,Y]
  DEFGAD[BT,X,Y,X+17,Y+8,3]
End Proc
Procedure DRAARROWU[X,Y]
  DRABOX[X,Y,X+17,Y+8,0]
   Extension_8_1016 X+4,Y+6 To X+8,Y+2,0
   Extension_8_1016 X+5,Y+6 To X+8,Y+3,0
   Extension_8_1016 X+9,Y+2 To X+13,Y+6,0
   Extension_8_1016 X+9,Y+3 To X+12,Y+6,0
End Proc
Procedure DEFARROWD[BT,X,Y]
  DRAARROWD[X,Y]
  DEFGAD[BT,X,Y,X+17,Y+8,3]
End Proc
Procedure DRAARROWD[X,Y]
  DRABOX[X,Y,X+17,Y+8,0]
   Extension_8_1016 X+4,Y+2 To X+8,Y+6,0
   Extension_8_1016 X+5,Y+2 To X+8,Y+5,0
   Extension_8_1016 X+9,Y+6 To X+13,Y+2,0
   Extension_8_1016 X+9,Y+5 To X+12,Y+2,0
End Proc
Procedure DRAPROCBAR[BT,POS,MX]
  X1=FB(BT,0)+2 : X2=FB(BT,2)-2 : Y1=FB(BT,1)+1 : Y2=FB(BT,3)-1
  DX=X2-X1
  PX=X1+(POS*DX)/MX
  If PX>X1 and PX<X2
    Ink 0 : Bar X1,Y1 To PX,Y2
    Ink 2 : Bar PX,Y1 To X2,Y2
  End If
  If PX=X1 Then Ink 2 : Bar X1,Y1 To X2,Y2
  If PX=X2 Then Ink 0 : Bar X1,Y1 To X2,Y2
End Proc
Procedure DRASLIDER[BT,LINOFF,PAG,NUMLIN,NB]
  D=(FB(BT,3)-FB(BT,1))-4
  Y1=(LINOFF*D)/Max(NUMLIN,PAG)+FB(BT,1)+2
  Y2=((LINOFF+PAG)*D)/Max(NUMLIN,PAG)+FB(BT,1)+2
  DEFGAD[NB,FB(BT,0)+4,Y1,FB(BT,2)-4,Y2,3]
  Ink 2
  If Y1>FB(BT,1)+2 Then Bar FB(BT,0)+4,FB(BT,1)+1 To FB(BT,2)-4,Y1-1
  If Y2<FB(BT,3)-2 Then Bar FB(BT,0)+4,Y2+1 To FB(BT,2)-4,FB(BT,3)-1
  If Y2-Y1>0
    Ink 0 : Bar FB(BT,0)+4,Y1 To FB(BT,2)-4,Y2
  Else
     Extension_8_1016 FB(BT,0)+4,Y1 To FB(BT,2)-4,Y2,0
  End If
End Proc
Procedure DRAGSLIDER[BT,Y,PAG,NUMLIN,NB]
  Y1=FB(NB,1) : Y2=FB(NB,3) : D=Y2-Y1
  Y1=Min(Max(FB(BT,1)+2,Y),FB(BT,3)-2-D)
  Y2=Y1+D : FB(NB,1)=Y1 : FB(NB,3)=Y2
  Ink 2
  If Y1>FB(BT,1)+2 Then Bar FB(BT,0)+4,FB(BT,1)+1 To FB(BT,2)-4,Y1-1
  If Y2<FB(BT,3)-2 Then Bar FB(BT,0)+4,Y2+1 To FB(BT,2)-4,FB(BT,3)-1
  If Y2-Y1>0
    Ink 1 : Bar FB(BT,0)+4,Y1 To FB(BT,2)-4,Y2
  Else
     Extension_8_1016 FB(BT,0)+4,Y1 To FB(BT,2)-4,Y2,1
  End If
  D=FB(BT,3)-FB(BT,1)-4
  L=Min(((Y1-FB(BT,1)-2)*Max(NUMLIN,PAG)+D/2)/D,NUMLIN-PAG)
End Proc[L]